library(ggpubr)
HOMAF<-c(272.6, 67.2, 63.2, 135.2, 127.4, 53.4, 234.8, 115.4, 130.2, 177.6)
HOMACh<-c(211.8, 216.6, 31.8, 199.8, 157.4, 35, 56.2, 165, 128.2, 65.8)
Homdata<-data.frame(before = HOMAF, after = HOMACh)
Homdata
OTTAF <-c(2, 67.8, 1.6, 150.8, 64.2, 77.6, 22.8, 169, 35.8, 8)
OTTACh <-c(363.2, 537.4, 58.2, 840, 1544.8, 1090.8, 426.8, 1871.8, 1588.4, 756.2)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
Homplotgg<- ggpaired(Homdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
Homplotgg + scale_y_continuous(trans='sqrt', breaks = c(100, 200, 500, 1000, 2000, 3000), limits = c(0,3000))
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(100, 200, 500, 1000, 2000, 3000), limits = c(0,3000))
HOMAF2<-c(137.7, 62.08, 213.32, 53.4, 272.6)
HOMACh2<-c(124.76, 46.9, 202.6, 31.8, 211.8)
Homdata2<-data.frame(before = HOMAF2, after = HOMACh2)
Homdata2
OTTAF2 <-c(59.96, 0.38, 119.55, 1.6, 169)
OTTACh2 <-c(907.76, 307.18, 1508.34, 58.2, 1871.8)
OTTdata2<-data.frame(before = OTTAF2, after = OTTACh2)
OTTdata2
Homplotgg2<- ggpaired(Homdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTTplotgg2<- ggpaired(OTTdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
Homplotgg2 + scale_y_continuous(trans='sqrt',breaks = c(100, 200, 500, 1000, 2000, 3000), limits = c(0,3000))
OTTplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(100, 200, 500, 1000, 2000, 3000), limits = c(0,3000))
library(ggplot2)
library(ggpubr)
HOMAF<-c(272.6, 67.2, 63.2, 135.2, 127.4, 53.4, 234.8, 115.4, 130.2, 177.6)
HOMACh<-c(211.8, 216.6, 31.8, 199.8, 157.4, 35, 56.2, 165, 128.2, 65.8)
Homdata<-data.frame(before = HOMAF, after = HOMACh)
Homdata
OTTAF <-c(2, 67.8, 1.6, 150.8, 64.2, 77.6, 22.8, 169, 35.8, 8)
OTTACh <-c(363.2, 537.4, 58.2, 840, 1544.8, 1090.8, 426.8, 1871.8, 1588.4, 756.2)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
Homplotgg<- ggpaired(Homdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
Homplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
HOMAF2<-c(137.7, 62.08, 213.32, 53.4, 272.6)
HOMACh2<-c(126.76, 51.72, 201.79, 31.8, 211.8)
Homdata2<-data.frame(before = HOMAF2, after = HOMACh2)
Homdata2
OTTAF2 <-c(59.96, 0.37, 119.55, 1.6, 169)
OTTACh2 <-c(907.76, 307.18, 1508.34, 58.2, 1871.8)
OTTdata2<-data.frame(before = OTTAF2, after = OTTACh2)
OTTdata2
Homplotgg2<- ggpaired(Homdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTTplotgg2<- ggpaired(OTTdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
Homplotgg2 + scale_y_continuous(trans='sqrt',breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
OTTplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
library(ggplot2)
library(ggpubr)
HOMAF<-c(272.6, 67.2, 63.2, 135.2, 127.4, 53.4, 234.8, 115.4, 130.2, 177.6)
HOMACh<-c(211.8, 216.6, 31.8, 199.8, 157.4, 35, 56.2, 165, 128.2, 65.8)
Homdata<-data.frame(before = HOMAF, after = HOMACh)
Homdata
OTTAF <-c(2, 67.8, 1.6, 150.8, 64.2, 77.6, 22.8, 169, 35.8, 8)
OTTACh <-c(363.2, 537.4, 58.2, 840, 1544.8, 1090.8, 426.8, 1871.8, 1588.4, 756.2)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
Homplotgg<- ggpaired(Homdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
Homplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
HOMAF2<-c(137.7, 62.08, 213.32, 53.4, 272.6)
HOMACh2<-c(126.76, 51.72, 201.79, 31.8, 211.8)
Homdata2<-data.frame(before = HOMAF2, after = HOMACh2)
Homdata2
OTTAF2 <-c(59.96, 0.367, 119.55, 1.6, 169)
OTTACh2 <-c(907.76, 307.18, 1508.34, 58.2, 1871.8)
OTTdata2<-data.frame(before = OTTAF2, after = OTTACh2)
OTTdata2
Homplotgg2<- ggpaired(Homdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTTplotgg2<- ggpaired(OTTdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
Homplotgg2 + scale_y_continuous(trans='sqrt',breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
OTTplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
library(ggplot2)
library(ggpubr)
HOMAF<-c(117.2, 44.2, 15.4, 22.4, 13.2, 86.4, 93.2, 28.6)
HOMACh<-c(101.2, 261.2, 38.6, 22, 82.2, 6.6, 184.2, 98.8)
Homdata<-data.frame(before = HOMAF, after = HOMACh)
Homdata
Homplotgg<- ggpaired(Homdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
Homplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
OTTAF <-c(175, 36.8, 74.2, 15.6, 19, 24, 55, 44.2)
OTTACh <-c(225.2, 155.2, 275.8, 560.4, 151.2, 401.4, 208.8, 182.8)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
OTTAF <-c(175, 36.8, 74.2, 15.6, 19, 24, 55, 44.2)
OTTACh <-c(225.2, 155.2, 275.8, 560.4, 151.2, 401.4, 208.8, 182.8)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,1000))
OTTAF <-c(175, 36.8, 74.2, 15.6, 19, 24, 55, 44.2)
OTTACh <-c(225.2, 155.2, 275.8, 560.4, 151.2, 401.4, 208.8, 182.8)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,1000))
library(ggplot2)
library(ggpubr)
HOMAF<-c(117.2, 44.2, 15.4, 22.4, 13.2, 86.4, 93.2, 28.6)
HOMACh<-c(101.2, 261.2, 38.6, 22, 82.2, 6.6, 184.2, 98.8)
Homdata<-data.frame(before = HOMAF, after = HOMACh)
Homdata
Homplotgg<- ggpaired(Homdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
Homplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,1000))
library(ggplot2)
library(ggpubr)
OTTAF <-c(2, 67.8, 1.6, 150.8, 64.2, 77.6, 22.8, 169, 35.8, 8)
OTTACh <-c(363.2, 537.4, 58.2, 840, 1544.8, 1090.8, 426.8, 1871.8, 1588.4, 756.2)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
library(ggplot2)
library(ggpubr)
OTTAF <-c(8.2, 10.2, 56.6, 213, 335, 351.8, 13.8, 256.2, 88, 276.8)
OTTACh <-c(22.6, 83, 352.4, 1114.8, 271.6, 1260, 451.6, 1300.2, 242.6, 169.8)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
library(ggplot2)
library(ggpubr)
OTTAF <-c(32.8, 240.4, 83.4, 10.4, 275.2, 125, 87.4, 89.4)
OTTACh <-c(44.8, 248.2, 197.8, 25.2, 529.4, 51.8, 48.8, 231.2)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
library(ggplot2)
library(ggpubr)
OTTAF <-c(2, 67.8, 1.6, 150.8, 64.2, 77.6, 22.8, 169, 35.8, 8)
OTTACh <-c(363.2, 537.4, 58.2, 840, 1544.8, 1090.8, 426.8, 1871.8, 1588.4, 756.2)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 100, 500, 1000, 2000, 3000), limits = c(0,3000))
library(ggplot2)
library(ggpubr)
OTTAF <-c(8.2, 10.2, 56.6, 213, 335, 351.8, 13.8, 256.2, 88, 276.8)
OTTACh <-c(22.6, 83, 352.4, 1114.8, 271.6, 1260, 451.6, 1300.2, 242.6, 169.8)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 100, 500, 1000, 2000, 3000), limits = c(0,3000))
library(ggplot2)
library(ggpubr)
OTTAF <-c(32.8, 240.4, 83.4, 10.4, 275.2, 125, 87.4, 89.4)
OTTACh <-c(44.8, 248.2, 197.8, 25.2, 529.4, 51.8, 48.8, 231.2)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 100, 500, 1000, 2000, 3000), limits = c(0,3000))
library(ggplot2)
library(ggpubr)
OTOAF <-c(55.4, 120.8, 43, 801.4, 38.8, 483.4, 69.4, 223.6, 44, 38.8)
OTOACh <-c(907, 437.4, 2648, 2717.8, 894.8, 2173.2, 884.8, 4866.6, 705.6, 1961.2)
OTTdata<-data.frame(before = OTOAF, after = OTOACh)
OTOdata
OTOplotgg<- ggpaired(OTOdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTOplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
OTOAF2 <-c(191.86, -63.55, 447.27, 38.8, 801.4)
OTOACh2 <-c(1819.64, 460.08, 3179.20, 437.4, 4866.6)
OTOdata2<-data.frame(before = OTOAF2, after = OTOACh2)
OTOdata2
OTOplotgg2<- ggpaired(OTOdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTOplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
OTTplotgg + scale_y_log10(limits = c(1,1e4))
OTTplotgg2 + scale_y_log10(limits = c(1,1e4))
library(ggplot2)
library(ggpubr)
OTOAF <-c(55.4, 120.8, 43, 801.4, 38.8, 483.4, 69.4, 223.6, 44, 38.8)
OTOACh <-c(907, 437.4, 2648, 2717.8, 894.8, 2173.2, 884.8, 4866.6, 705.6, 1961.2)
OTOdata<-data.frame(before = OTOAF, after = OTOACh)
OTOdata
OTOplotgg<- ggpaired(OTOdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTOplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
OTOAF2 <-c(191.86, -63.55, 447.27, 38.8, 801.4)
OTOACh2 <-c(1819.64, 460.08, 3179.20, 437.4, 4866.6)
OTOdata2<-data.frame(before = OTOAF2, after = OTOACh2)
OTOdata2
OTOplotgg2<- ggpaired(OTOdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTOplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000), limits = c(0,3000))
OTTplotgg + scale_y_log10(limits = c(1,1e4))
OTTplotgg2 + scale_y_log10(limits = c(1,1e4))
library(ggplot2)
library(ggpubr)
OTOAF <-c(55.4, 120.8, 43, 801.4, 38.8, 483.4, 69.4, 223.6, 44, 38.8)
OTOACh <-c(907, 437.4, 2648, 2717.8, 894.8, 2173.2, 884.8, 4866.6, 705.6, 1961.2)
OTOdata<-data.frame(before = OTOAF, after = OTOACh)
OTOdata
OTOplotgg<- ggpaired(OTOdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTOplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTOAF2 <-c(191.86, -63.55, 447.27, 38.8, 801.4)
OTOACh2 <-c(1819.64, 460.08, 3179.20, 437.4, 4866.6)
OTOdata2<-data.frame(before = OTOAF2, after = OTOACh2)
OTOdata2
OTOplotgg2<- ggpaired(OTOdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTOplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTTplotgg + scale_y_log10(limits = c(1,1e4))
OTTplotgg2 + scale_y_log10(limits = c(1,1e4))
OTOplotgg + scale_y_log10(limits = c(1,1e4))
OTOplotgg2 + scale_y_log10(limits = c(1,1e4))
library(ggplot2)
library(ggpubr)
HOMAF<-c(272.6, 67.2, 63.2, 135.2, 127.4, 53.4, 234.8, 115.4, 130.2, 177.6)
HOMACh<-c(211.8, 216.6, 31.8, 199.8, 157.4, 35, 56.2, 165, 128.2, 65.8)
Homdata<-data.frame(before = HOMAF, after = HOMACh)
Homdata
OTTAF <-c(2, 67.8, 1.6, 150.8, 64.2, 77.6, 22.8, 169, 35.8, 8)
OTTACh <-c(363.2, 537.4, 58.2, 840, 1544.8, 1090.8, 426.8, 1871.8, 1588.4, 756.2)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
Homplotgg<- ggpaired(Homdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
Homplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
HOMAF2<-c(137.7, 62.08, 213.32, 53.4, 272.6)
HOMACh2<-c(126.76, 51.72, 201.79, 31.8, 211.8)
Homdata2<-data.frame(before = HOMAF2, after = HOMACh2)
Homdata2
OTTAF2 <-c(59.96, 0.367, 119.55, 1.6, 169)
OTTACh2 <-c(907.76, 307.18, 1508.34, 58.2, 1871.8)
OTTdata2<-data.frame(before = OTTAF2, after = OTTACh2)
OTTdata2
Homplotgg2<- ggpaired(Homdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTTplotgg2<- ggpaired(OTTdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
Homplotgg2 + scale_y_continuous(trans='sqrt',breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTTplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTOAF <-c(55.4, 120.8, 43, 801.4, 38.8, 483.4, 69.4, 223.6, 44, 38.8)
OTOACh <-c(907, 437.4, 2648, 2717.8, 894.8, 2173.2, 884.8, 4866.6, 705.6, 1961.2)
OTOdata<-data.frame(before = OTOAF, after = OTOACh)
OTOdata
OTOplotgg<- ggpaired(OTOdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTOplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTOAF2 <-c(191.86, -63.55, 447.27, 38.8, 801.4)
OTOACh2 <-c(1819.64, 460.08, 3179.20, 437.4, 4866.6)
OTOdata2<-data.frame(before = OTOAF2, after = OTOACh2)
OTOdata2
OTOplotgg2<- ggpaired(OTOdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTOplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
library(ggplot2)
library(ggpubr)
HOMAF<-c(272.6, 67.2, 63.2, 135.2, 127.4, 53.4, 234.8, 115.4, 130.2, 177.6)
HOMACh<-c(211.8, 216.6, 31.8, 199.8, 157.4, 35, 56.2, 165, 128.2, 65.8)
Homdata<-data.frame(before = HOMAF, after = HOMACh)
Homdata
OTTAF <-c(2, 67.8, 1.6, 150.8, 64.2, 77.6, 22.8, 169, 35.8, 8)
OTTACh <-c(363.2, 537.4, 58.2, 840, 1544.8, 1090.8, 426.8, 1871.8, 1588.4, 756.2)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
Homplotgg<- ggpaired(Homdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
Homplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
HOMAF2<-c(137.7, 62.08, 213.32, 53.4, 272.6)
HOMACh2<-c(126.76, 51.72, 201.79, 31.8, 211.8)
Homdata2<-data.frame(before = HOMAF2, after = HOMACh2)
Homdata2
OTTAF2 <-c(59.96, 0.367, 119.55, 1.6, 169)
OTTACh2 <-c(907.76, 307.18, 1508.34, 58.2, 1871.8)
OTTdata2<-data.frame(before = OTTAF2, after = OTTACh2)
OTTdata2
Homplotgg2<- ggpaired(Homdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTTplotgg2<- ggpaired(OTTdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
Homplotgg2 + scale_y_continuous(trans='sqrt',breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTTplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTOAF <-c(55.4, 120.8, 43, 801.4, 38.8, 483.4, 69.4, 223.6, 44, 38.8)
OTOACh <-c(907, 437.4, 2648, 2717.8, 894.8, 2173.2, 884.8, 4866.6, 705.6, 1961.2)
OTOdata<-data.frame(before = OTOAF, after = OTOACh)
OTOdata
OTOplotgg<- ggpaired(OTOdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTOplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTOAF2 <-c(191.86, -63.55, 447.27, 38.8, 801.4)
OTOACh2 <-c(1819.64, 460.08, 3179.20, 437.4, 4866.6)
OTOdata2<-data.frame(before = OTOAF2, after = OTOACh2)
OTOdata2
OTOplotgg2<- ggpaired(OTOdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTOplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(-100,0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(-100,5000))
warnings()
library(ggplot2)
library(ggpubr)
HOMAF<-c(272.6, 67.2, 63.2, 135.2, 127.4, 53.4, 234.8, 115.4, 130.2, 177.6)
HOMACh<-c(211.8, 216.6, 31.8, 199.8, 157.4, 35, 56.2, 165, 128.2, 65.8)
Homdata<-data.frame(before = HOMAF, after = HOMACh)
Homdata
OTTAF <-c(2, 67.8, 1.6, 150.8, 64.2, 77.6, 22.8, 169, 35.8, 8)
OTTACh <-c(363.2, 537.4, 58.2, 840, 1544.8, 1090.8, 426.8, 1871.8, 1588.4, 756.2)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
Homplotgg<- ggpaired(Homdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
Homplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
HOMAF2<-c(137.7, 62.08, 213.32, 53.4, 272.6)
HOMACh2<-c(126.76, 51.72, 201.79, 31.8, 211.8)
Homdata2<-data.frame(before = HOMAF2, after = HOMACh2)
Homdata2
OTTAF2 <-c(59.96, 0.367, 119.55, 1.6, 169)
OTTACh2 <-c(907.76, 307.18, 1508.34, 58.2, 1871.8)
OTTdata2<-data.frame(before = OTTAF2, after = OTTACh2)
OTTdata2
Homplotgg2<- ggpaired(Homdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTTplotgg2<- ggpaired(OTTdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
Homplotgg2 + scale_y_continuous(trans='sqrt',breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTTplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTOAF <-c(55.4, 120.8, 43, 801.4, 38.8, 483.4, 69.4, 223.6, 44, 38.8)
OTOACh <-c(907, 437.4, 2648, 2717.8, 894.8, 2173.2, 884.8, 4866.6, 705.6, 1961.2)
OTOdata<-data.frame(before = OTOAF, after = OTOACh)
OTOdata
OTOplotgg<- ggpaired(OTOdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTOplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTOAF2 <-c(191.86, 0, 447.27, 38.8, 801.4)
OTOACh2 <-c(1819.64, 460.08, 3179.20, 437.4, 4866.6)
OTOdata2<-data.frame(before = OTOAF2, after = OTOACh2)
OTOdata2
OTOplotgg2<- ggpaired(OTOdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTOplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
library(ggplot2)
library(ggpubr)
HOMAF<-c(272.6, 67.2, 63.2, 135.2, 127.4, 53.4, 234.8, 115.4, 130.2, 177.6)
HOMACh<-c(211.8, 216.6, 31.8, 199.8, 157.4, 35, 56.2, 165, 128.2, 65.8)
Homdata<-data.frame(before = HOMAF, after = HOMACh)
Homdata
OTTAF <-c(2, 67.8, 1.6, 150.8, 64.2, 77.6, 22.8, 169, 35.8, 8)
OTTACh <-c(363.2, 537.4, 58.2, 840, 1544.8, 1090.8, 426.8, 1871.8, 1588.4, 756.2)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
Homplotgg<- ggpaired(Homdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
Homplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
HOMAF2<-c(137.7, 62.08, 213.32, 53.4, 272.6)
HOMACh2<-c(126.76, 51.72, 201.79, 31.8, 211.8)
Homdata2<-data.frame(before = HOMAF2, after = HOMACh2)
Homdata2
OTTAF2 <-c(59.96, 0.367, 119.55, 1.6, 169)
OTTACh2 <-c(907.76, 307.18, 1508.34, 58.2, 1871.8)
OTTdata2<-data.frame(before = OTTAF2, after = OTTACh2)
OTTdata2
Homplotgg2<- ggpaired(Homdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTTplotgg2<- ggpaired(OTTdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
Homplotgg2 + scale_y_continuous(trans='sqrt',breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTTplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTOAF <-c(55.4, 120.8, 43, 801.4, 38.8, 483.4, 69.4, 223.6, 44, 38.8)
OTOACh <-c(907, 437.4, 2648, 2717.8, 894.8, 2173.2, 884.8, 4866.6, 705.6, 1961.2)
OTOdata<-data.frame(before = OTOAF, after = OTOACh)
OTOdata
OTOplotgg<- ggpaired(OTOdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTOplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTOAF2 <-c(191.86, 40, 447.27, 38.8, 801.4)
OTOACh2 <-c(1819.64, 460.08, 3179.20, 437.4, 4866.6)
OTOdata2<-data.frame(before = OTOAF2, after = OTOACh2)
OTOdata2
OTOplotgg2<- ggpaired(OTOdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTOplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
library(ggplot2)
library(ggpubr)
HOMAF<-c(272.6, 67.2, 63.2, 135.2, 127.4, 53.4, 234.8, 115.4, 130.2, 177.6)
HOMACh<-c(211.8, 216.6, 31.8, 199.8, 157.4, 35, 56.2, 165, 128.2, 65.8)
Homdata<-data.frame(before = HOMAF, after = HOMACh)
Homdata
OTTAF <-c(2, 67.8, 1.6, 150.8, 64.2, 77.6, 22.8, 169, 35.8, 8)
OTTACh <-c(363.2, 537.4, 58.2, 840, 1544.8, 1090.8, 426.8, 1871.8, 1588.4, 756.2)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
Homplotgg<- ggpaired(Homdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
Homplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
HOMAF2<-c(137.7, 62.08, 213.32, 53.4, 272.6)
HOMACh2<-c(126.76, 51.72, 201.79, 31.8, 211.8)
Homdata2<-data.frame(before = HOMAF2, after = HOMACh2)
Homdata2
OTTAF2 <-c(59.96, 0.367, 119.55, 1.6, 169)
OTTACh2 <-c(907.76, 307.18, 1508.34, 58.2, 1871.8)
OTTdata2<-data.frame(before = OTTAF2, after = OTTACh2)
OTTdata2
Homplotgg2<- ggpaired(Homdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTTplotgg2<- ggpaired(OTTdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
Homplotgg2 + scale_y_continuous(trans='sqrt',breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTTplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTOAF <-c(55.4, 120.8, 43, 801.4, 38.8, 483.4, 69.4, 223.6, 44, 38.8)
OTOACh <-c(907, 437.4, 2648, 2717.8, 894.8, 2173.2, 884.8, 4866.6, 705.6, 1961.2)
OTOdata<-data.frame(before = OTOAF, after = OTOACh)
OTOdata
OTOplotgg<- ggpaired(OTOdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTOplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTOAF2 <-c(191.86, 0, 447.27, 38.8, 801.4)
OTOACh2 <-c(1819.64, 460.08, 3179.20, 437.4, 4866.6)
OTOdata2<-data.frame(before = OTOAF2, after = OTOACh2)
OTOdata2
OTOplotgg2<- ggpaired(OTOdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTOplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
library(ggplot2)
library(ggpubr)
OTOAF <-c(55.4, 120.8, 43, 801.4, 38.8, 483.4, 69.4, 223.6, 44, 38.8)
OTOACh <-c(907, 437.4, 2648, 2717.8, 894.8, 2173.2, 884.8, 4866.6, 705.6, 1961.2)
OTOdata<-data.frame(before = OTOAF, after = OTOACh)
OTOdata
OTOplotgg<- ggpaired(OTOdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTOplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTOAF2 <-c(191.86, -63.55, 447.27, 38.8, 801.4)
OTOACh2 <-c(1819.64, 460.08, 3179.20, 437.4, 4866.6)
OTOdata2<-data.frame(before = OTOAF2, after = OTOACh2)
OTOdata2
OTOplotgg2<- ggpaired(OTOdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTOplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 200, 400, 600, 800, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 3200, 3400, 3600, 3800, 4000, 4200, 4400, 4600, 4800 5000), limits = c(0,5000))
OTOplotgg + scale_y_log10(limits = c(1,1e4))
OTOplotgg2 + scale_y_log10(limits = c(1,1e4))
library(ggplot2)
library(ggpubr)
OTOAF <-c(55.4, 120.8, 43, 801.4, 38.8, 483.4, 69.4, 223.6, 44, 38.8)
OTOACh <-c(907, 437.4, 2648, 2717.8, 894.8, 2173.2, 884.8, 4866.6, 705.6, 1961.2)
OTOdata<-data.frame(before = OTOAF, after = OTOACh)
OTOdata
OTOplotgg<- ggpaired(OTOdata, cond1 = "before", cond2 = "after", fill = "condition", palette = "jco")
OTOplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 50, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 4000, 5000), limits = c(0,5000))
OTOAF2 <-c(191.86, -63.55, 447.27, 38.8, 801.4)
OTOACh2 <-c(1819.64, 460.08, 3179.20, 437.4, 4866.6)
OTOdata2<-data.frame(before = OTOAF2, after = OTOACh2)
OTOdata2
OTOplotgg2<- ggpaired(OTOdata2, cond1 = "before", cond2 = "after", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTOplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 200, 400, 600, 800, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 3200, 3400, 3600, 3800, 4000, 4200, 4400, 4600, 4800 5000), limits = c(0,5000))
OTOplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 200, 400, 600, 800, 1000,1200, 1400, 1600, 1800, 2000, 2200, 2400, 2600, 2800, 3000, 3200, 3400, 3600, 3800, 4000, 4200, 4400, 4600, 4800, 5000), limits = c(0,5000))
library(ggplot2)
library(ggpubr)
HOMAF<-c(272.6, 67.2, 63.2, 135.2, 127.4, 53.4, 234.8, 115.4, 130.2, 177.6)
HOMACh<-c(211.8, 216.6, 31.8, 199.8, 157.4, 35, 56.2, 165, 128.2, 65.8)
Homdata<-data.frame(before = HOMAF, after = HOMACh)
Homdata
OTTAF <-c(2, 67.8, 1.6, 150.8, 64.2, 77.6, 22.8, 169, 35.8, 8)
OTTACh <-c(363.2, 537.4, 58.2, 840, 1544.8, 1090.8, 426.8, 1871.8, 1588.4, 756.2)
OTTdata<-data.frame(before = OTTAF, after = OTTACh)
OTTdata
Homplotgg<- ggpaired(Homdata, cond1 = "before", cond2 = "after",title = "BAncHomomer", fill = "condition", palette = "jco")
OTTplotgg<- ggpaired(OTTdata, cond1 = "before", cond2 = "after", title = "BAncOTT",fill = "condition", palette = "jco")
Homplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 500, 1000, 1500, 2000, 2500, 3000, 3500, 4000, 4500, 5000), limits = c(0,5000))
OTTplotgg + scale_y_continuous(trans='sqrt', breaks = c(0, 500, 1000, 1500, 2000, 2500, 3000, 3500, 4000, 4500, 5000), limits = c(0,5000))
HOMAF2<-c(137.7, 62.08, 213.32, 53.4, 272.6)
HOMACh2<-c(126.76, 51.72, 201.79, 31.8, 211.8)
Homdata2<-data.frame(before = HOMAF2, after = HOMACh2)
Homdata2
OTTAF2 <-c(59.96, 0.367, 119.55, 1.6, 169)
OTTACh2 <-c(907.76, 307.18, 1508.34, 58.2, 1871.8)
OTTdata2<-data.frame(before = OTTAF2, after = OTTACh2)
OTTdata2
Homplotgg2<- ggpaired(Homdata2, cond1 = "before", cond2 = "after", title = "BAncHomomer", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTTplotgg2<- ggpaired(OTTdata2, cond1 = "before", cond2 = "after",title = "BAncOTT",  color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
Homplotgg2 + scale_y_continuous(trans='sqrt',breaks = c(0, 500, 1000, 1500, 2000, 2500, 3000, 3500, 4000, 4500, 5000), limits = c(0,5000))
OTTplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 500, 1000, 1500, 2000, 2500, 3000, 3500, 4000, 4500, 5000), limits = c(0,5000))
OTOAF <-c(55.4, 120.8, 43, 801.4, 38.8, 483.4, 69.4, 223.6, 44, 38.8)
OTOACh <-c(907, 437.4, 2648, 2717.8, 894.8, 2173.2, 884.8, 4866.6, 705.6, 1961.2)
OTOdata<-data.frame(before = OTOAF, after = OTOACh)
OTOdata
OTOplotgg<- ggpaired(OTOdata, cond1 = "before", cond2 = "after",title = "BAncOTO", fill = "condition", palette = "jco")
OTOplotgg + scale_y_continuous(trans='sqrt', breaks = c(00, 500, 1000, 1500, 2000, 2500, 3000, 3500, 4000, 4500, 5000), limits = c(0,5000))
OTOAF2 <-c(191.86, 0, 447.27, 38.8, 801.4)
OTOACh2 <-c(1819.64, 460.08, 3179.20, 437.4, 4866.6)
OTOdata2<-data.frame(before = OTOAF2, after = OTOACh2)
OTOdata2
OTOplotgg2<- ggpaired(OTOdata2, cond1 = "before", cond2 = "after", title = "BAncOTO", color = "condition", line.color = "gray", line.size = 0.4, palette = "npg")
OTOplotgg2 + scale_y_continuous(trans='sqrt', breaks = c(0, 500, 1000, 1500, 2000, 2500, 3000, 3500, 4000, 4500, 5000), limits = c(0,5000))
HOMAFS<-c(117.2, 44.2, 15.4, 22.4, 13.2, 93.2, 28.6, 5.6, 83.2, 87.4)
HOMAChS<-c(101.2, 261.2, 38.6, 22, 82.2, 184.2, 98.8, 41.8, 336.4, 19)
HomdataS<-data.frame(before = HOMAFS, after = HOMAChS)
HomdataS
OTTAFS <-c(175, 36.8, 74.2, 15.6, 19, 24, 55, 44.2, 32.2, 18.6)
OTTAChS <-c(225.2, 155.2, 275.8, 560.4, 151.2, 401.4, 208.8, 182.8, 159.6, 1123.4)
OTTdataS<-data.frame(before = OTTAFS, after = OTTAChS)
OTTdataS
HomplotggS<- ggpaired(HomdataS, cond1 = "before", cond2 = "after", title = "BAncSHomomer", fill = "condition", palette = "jco")
OTTplotggS<- ggpaired(OTTdataS, cond1 = "before", cond2 = "after", title = "BAncSOTT", fill = "condition", palette = "jco")
HomplotggS + scale_y_continuous(trans='sqrt', breaks = c(0, 500, 1000, 1500, 2000, 2500, 3000, 3500, 4000, 4500, 5000), limits = c(0,5000))
OTTplotggS + scale_y_continuous(trans='sqrt', breaks = c(0, 500, 1000, 1500, 2000, 2500, 3000, 3500, 4000, 4500, 5000), limits = c(0,5000))
HOMAF2S<-c(51.04, 91.38, 10.70, 117.2, 5.6)
HOMACh2S<-c(118.44, 226.56, 10.32, 335.4, 19)
Homdata2S<-data.frame(before = HOMAF2S, after = HOMACh2S)
Homdata2S
OTTAF2S <-c(49.46, 97.16, 1.66, 175, 15.6)
OTTACh2S <-c(344.38, 647.59, 41.17, 1123.4, 151.2)
OTTdata2S<-data.frame(before = OTTAF2S, after = OTTACh2S)
OTTdata2S
Homplotgg2S<- ggpaired(Homdata2S, cond1 = "before", cond2 = "after", color = "condition", title = "BAncSHomomer", line.color = "gray", line.size = 0.4, palette = "npg")
OTTplotgg2S<- ggpaired(OTTdata2S, cond1 = "before", cond2 = "after", color = "condition", title = "BAncSOTT",line.color = "gray", line.size = 0.4, palette = "npg")
Homplotgg2S + scale_y_continuous(trans='sqrt',breaks = c(0, 500, 1000, 1500, 2000, 2500, 3000, 3500, 4000, 4500, 5000), limits = c(0,5000))
OTTplotgg2S + scale_y_continuous(trans='sqrt', breaks = c(0, 500, 1000, 1500, 2000, 2500, 3000, 3500, 4000, 4500, 5000), limits = c(0,5000))
setwd("/Users/christiantessier/Desktop/ParalogWD/WD71")
library(ape)
library(seqinr)
library(rotl)
library(dendextend)
sequences <- read.fasta("A71_ROTL_R6.fa",seqtype="AA",as.string=TRUE)
species <- getName(sequences)
species2<-gsub("_", " ", species)
taxa <- tnrs_match_names(species2)
tree <- tol_induced_subtree(ott_ids=ott_id(taxa), label_format="name")
treeBL<-compute.brlen(tree, 1, min=0.01)
treeBF<-multi2di(treeBL)
treeBLF<-compute.brlen(treeBF, 1, min=0.01)
plot(treeBL, cex = 0.6, label.offset = 0.02, edge.width = 0.5, font = 1)
write.tree(treeBLF, file = "guidetreeBF.newick")
specheck <- getName(sequences)
setdiff(specheck,tree$tip.label)
dendrogram <- chronos(treeBLF)
dend <- as.dendrogram(dendrogram)
